home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen… 1994 February Supplement / ARPL-Feb-94-Supplement-PowerPC.iso / 3rd Party PowerPC Demo Apps / Aldus FreeHand / Aldus FreeHand 4.0 TV / Aldus FreeHand 4.0 TV.rsrc / Post_1150 < prev    next >
Encoding:
Text File  |  1994-01-25  |  424 b   |  28 lines
  1. supdict begin
  2. /circloop 
  3. { ystart spacing ystart abs 
  4. { /ycur xdf 
  5. xstart spacing xstart abs 
  6.  { 
  7. ycur size 0 360 arc stroke
  8.  } for
  9. } for } def
  10. end 
  11. /circles 
  12.  {
  13.  supdict begin  
  14.  q newinside 
  15.  /color xdf
  16.  colorchoice 
  17.  w
  18.  /angle xdf 
  19.  /spacing xdf 
  20.  /size xdf 
  21.  
  22.  /xstart x1 x2 add 2 div neg spacing sub def 
  23.  /ystart y1 y2 add 2 div neg spacing sub def 
  24.  dx 2 div dy 2 div translate
  25.  angle rotate circloop 
  26.  Q end
  27.  } def